home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u3.d64 / block modifier.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  4KB  |  113 lines
  1. 1 REM"*** [194]LOCK MODIFIER          ***
  2. 2 [143]"***                         ***
  3. 3 REM"*** BY [208]AUL [203]ELLAM          ***
  4. 4 [143]"***  105 (null)UTELA LEFT$EIGHTS (null)D. ***
  5. 5 REM"***  [194]RANTFORD, [207]NTARIO.    ***
  6. 6 [143]"***  (null)3(null) 1ATN4                ***
  7. 7 REM"***            [202]ULY 10,1983 ***
  8. 8 [143]"***                         ***
  9. 10 DIM C(255),C$(255),AS$(255),HX$(15)
  10. 30 FOR A=0 TO 15:READ HX$(A):NEXT
  11. 50 POKE53281,15:POKE53280,6
  12. 97 REM"***                        ***
  13. 98 [143]"*** (null)ENU                   ***
  14. 99 REM"***                        ***
  15. 100 [153][199](14)[199](8)"LOADPOKE       PEEKLOCK MODIFICATION PROGRAM. "
  16. 101 [153]"      FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  17. 105 [153]"                     PRINT#PEEKY (null)AUL (null)ELLAM"
  18. 110 [153]"  1POKE (null)EAD BLOCK FROM DISK"
  19. 120 [153]"  2POKE STR$ISPLAY FIRST HALF OF BLOCK"
  20. 130 [153]"  3POKE STR$ISPLAY SECOND HALF OF BLOCK"
  21. 140 [153]"  4POKE (null)ODIFY A BYTE"
  22. 150 [153]"  5POKE (null)RITE BLOCK TO DISK"
  23. 155 [153]"  6POKE (null)EAD NEXT BLOCK FROM DISK"
  24. 160 [153]"  7POKE (null)UIT"
  25. 170 [153]"    VALNTER CHOICE.POKE"
  26. 180 [146]198,1:[161]CH$:[139][197](CH$)[179]1[176][197](CH$)[177]7 [167] 180
  27. 190 CH[178][197](CH$)
  28. 200 [145] CH [137] 1000,2000,3000,4000,5000,1200,6000
  29. 997 [143]"***                       ***
  30. 998 REM"*** [210]EAD BLOCK FROM DISK  ***
  31. 999 [143]"***                       ***
  32. 1000 INPUT"[147][212]RACK #   18[157][157][157][157]";T
  33. 1010 INPUT"[211]ECTOR #   1[157][157][157]";S
  34. 1020 PRINT"[208]LEASE WAIT..."
  35. 1030 OPEN 15,8,15
  36. 1040 OPEN 2,8,2,"#"
  37. 1042 PRINT#15,"U1:2,0";T;S
  38. 1043 INPUT#15,EN,EM$,ET,ES
  39. 1044 IFEN>0THENCLOSE2:CLOSE15:PRINT"[197]RROR: "EM$:PRINT"[151][208]RESS A KEY.":WAIT198,1:POKE198,0:RETURN
  40. 1045 PRINT#15,"B-P:2,0"
  41. 1060 FOR L=0 TO 255
  42. 1070 GET#2,C$(L):IF C$(L)=""THENC$(L)=CHR$(0)
  43. 1080 C(L)=ASC(C$(L)):GOSUB 8000:NEXT
  44. 1090 CLOSE2:CLOSE15
  45. 1100 GOTO 100
  46. 1197 REM"***                      ***
  47. 1198 [143]"*** (null)EAD NEXT BLOCK      ***
  48. 1199 REM"***                      ***
  49. 1200 [153]"LOAD";:[139] C(0)[178]0 [176] C(0)[177]35 [176] C(1)[177]20 [167] 1000
  50. 1210 T[178]C(0):S[178]C(1):[137]1020
  51. 1997 [143]"***                      ***
  52. 1998 REM"*** [196]ISPLAY FIRST HALF   ***
  53. 1999 [143]"***                      ***
  54. 2000 FB=0
  55. 2097 REM"***                      ***
  56. 2098 [143]"*** STR$ISPLAY ON SCREEN    ***
  57. 2099 REM"***                      ***
  58. 2100 [153]"LOADPEEKLOCK DATA :"
  59. 2110 [129]A[178]0[164]15:[153]""HX$(FB[173]16[170][181](A[173]2))HX$(8[172](A[171]2[172][181](A[173]2)))"POKE";:C$[178]"":[129]B[178]0[164]7
  60. 2120 N[178]FB[170]8[172]A[170]B
  61. 2130 [139] (C(N)[177]31[175]C(N)[179]129) [176] (C(N)[177]159)[167]2150
  62. 2140 C$[178]C$[170]" ":[137]2160
  63. 2150 C$[178]C$[170]C$(N)
  64. 2160 [153]" ";AS$(N);:[130]
  65. 2170 [153]"  -";C$:[130]
  66. 2200 [153]"VERIFY(null)RESS ANY KEY TO RETURN TO MENU."
  67. 2250 [146] 198,1:[161]B$:[137] 100
  68. 2997 [143]"***                      ***
  69. 2998 REM"*** [196]ISPLAY SECOND HALF  ***
  70. 2999 [143]"***                      ***
  71. 3000 FB=128:GOTO2100
  72. 3997 REM"***                      ***
  73. 3998 [143]"*** (null)ODIFY A BYTE        ***
  74. 3999 REM"***                      ***
  75. 4000 [133]"LOADPEEKYTE # (IN HEX)   00CMDCMDCMDCMD";BY$
  76. 4010 [139] [195](BY$)[179][177]2 [167] 4000
  77. 4020 F1[178]0:F2[178]0:L[178]0:[129] B[178]0 [164] 15
  78. 4030 [139] [200](BY$,1)[178]HX$(B)[167] L[178]L[170]16[172]B:F1[178]1
  79. 4040 [139] [201](BY$,1)[178]HX$(B)[167] L[178]L[170]B:F2[178]1
  80. 4050 [130]:[139] F1[178]0 [176] F2[178]0 [167] 4000
  81. 4060 [153]"(null)REVIOUS CONTENTS : POKE";AS$(L)
  82. 4070 [133]"(null)EW CONTENTS :   00CMDCMDCMDCMD";AS$(L)
  83. 4075 [139] [195](AS$(L))[179][177]2 [167] [153]"ONONON";:[137] 4070
  84. 4080 F1[178]0:F2[178]0:C(L)[178]0:[129] B[178]0 [164] 15
  85. 4090 [139] [200](AS$(L),1)[178]HX$(B)[167] C(L)[178]C(L)[170]16[172]B:F1[178]1
  86. 4100 [139] [201](AS$(L),1)[178]HX$(B)[167] C(L)[178]C(L)[170]B:F2[178]1
  87. 4110 [130]:[139] F1[178]0 [176] F2[178]0 [167] [153]"ONONON";:[137] 4070
  88. 4120 C$(L)[178][199](C(L)):[137] 100
  89. 4997 [143]"***                      ***
  90. 4998 REM"*** [215]RITE BLOCK TO DISK  ***
  91. 4999 [143]"***                      ***
  92. 5000 IF T=0 THEN 100
  93. 5010 PRINT"[147][208]LEASE WAIT..."
  94. 5020 OPEN 15,8,15
  95. 5030 OPEN 2,8,2,"#
  96. 5040 [152]15,"B-P:2,0"
  97. 5080 [129] L[178]0 [164] 255
  98. 5090 [152]2,C$(L);:[130]
  99. 5095 [152]15,"U2:2,0";T;S
  100. 5100 [160]2:[160]15:[137]100
  101. 5997 [143]"***                      ***
  102. 5998 REM"*** [197]ND                  ***
  103. 5999 [143]"***                      ***
  104. 6000 PRINT"[147]"CHR$(9):END
  105. 7997 REM"***                      ***
  106. 7998 [143]"*** LENONVERT DECI TO HEX  ***
  107. 7999 REM"***                      ***
  108. 8000 AS$(L)[178]HX$([181](C(L)[173]16))[170]HX$(C(L)[171]16[172][181](C(L)[173]16)):[142]
  109. 8997 [143]"***                      ***
  110. 8998 REM"*** [200]EX CHARACTERS       ***
  111. 8999 [143]"***                      ***
  112. 9000 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
  113.